home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 February / LiquidLibrary 2005 February - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_diskf.ps < prev    next >
Text File  |  2003-01-03  |  7KB  |  215 lines
  1. %    Copyright (C) 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % Support for converting Type 1 fonts without eexec encryption to
  8. % Type 4 fonts that load individual character outlines on demand.
  9.  
  10. % If DISKFONTS is true, we load individual CharStrings as they are needed.
  11. % (This is intended primarily for machines with very small memories.)
  12. % Initially, the character definition is the file position of the definition;
  13. % this gets replaced with the actual CharString.
  14. % Note that if we are loading characters lazily, CharStrings is writable.
  15.  
  16. % _Cstring must be long enough to hold the longest CharString for
  17. % a character defined using seac.  This is lenIV + 4 * 5 (for the operands
  18. % of sbw, assuming div is not used) + 2 (for sbw) + 3 * 5 (for the operands
  19. % of seac other than the character codes) + 2 * 2 (for the character codes)
  20. % + 2 (for seac), i.e., lenIV + 43.
  21.  
  22. /_Cstring 60 string def
  23.  
  24. % When we initially load the font, we call
  25. %    <index|charname> <length> <readproc> cskip_C
  26. % to skip over each character definition and return the file position instead.
  27. % This substitutes for the procedure
  28. %    <index|charname> <length> string currentfile exch read[hex]string pop
  29. %      [encrypt]
  30. % What we actually store in the CharString is fileposition * 1000 + length,
  31. %   negated if the string is stored in binary form.
  32.  
  33. /cskip_C
  34.  { exch dup 1000 ge 3 index type /nametype ne or
  35.     { % This is a Subrs string, or the string is so long we can't represent
  36.       % its length.  Load it now.
  37.       exch exec
  38.     }
  39.     { % Record the position and length, and skip the string.
  40.       dup currentfile fileposition 1000 mul add
  41.       2 index 3 get /readstring cvx eq { neg } if
  42.       3 1 roll
  43.       dup _Cstring length idiv
  44.        { currentfile _Cstring 3 index 3 get exec pop pop
  45.        } repeat
  46.       _Cstring length mod _Cstring exch 0 exch getinterval
  47.       currentfile exch 3 -1 roll 3 get exec pop pop
  48.     }
  49.    ifelse
  50.  } bind def
  51.  
  52. % Load a CharString from the file.  The font is the top entry
  53. % on the dictionary stack.
  54. /load_C        % <charname> <fileposandlength> load_C -
  55.  { dup abs 1000 idiv FontFile exch setfileposition
  56.    CharStrings 3 1 roll
  57.    .currentglobal CharStrings .gcheck .setglobal exch
  58.    dup 0 lt
  59.     { neg 1000 mod string FontFile exch readstring }
  60.     { 1000 mod string FontFile exch readhexstring }
  61.    ifelse pop
  62.    exch .setglobal
  63. % If the CharStrings aren't encrypted on the file, encrypt now.
  64.    Private /-| get 0 get
  65.    dup type /nametype ne
  66.     { dup length 5 sub 5 exch getinterval exec }
  67.     { pop }
  68.    ifelse dup 4 1 roll put
  69. % If the character is defined with seac, load its components now.
  70.    mark exch seac_C
  71.    counttomark
  72.     { StandardEncoding exch get dup CharStrings exch get
  73.       dup type /integertype eq { load_C } { pop pop } ifelse
  74.     } repeat
  75.    pop        % the mark
  76.  } bind def
  77.  
  78. /seac_C        % <charstring> seac_C <achar> <bchar> ..or nothing..
  79.  { dup length _Cstring length le
  80.     { 4330 exch _Cstring .type1decrypt exch pop
  81.       dup dup length 2 sub 2 getinterval <0c06> eq    % seac
  82.        { dup length
  83.          Private /lenIV known { Private /lenIV get } { 4 } ifelse
  84.      exch 1 index sub getinterval
  85. % Parse the string just enough to extract the seac information.
  86. % We assume that the only possible operators are hsbw, sbw, and seac,
  87. % and that there are no 5-byte numbers.
  88.      mark 0 3 -1 roll
  89.       { exch
  90.          { { dup 32 lt
  91.               { pop 0 }
  92.           { dup 247 lt
  93.              { 139 sub 0 }
  94.              { dup 251 lt
  95.             { 247 sub 256 mul 108 add 1 1 }
  96.             { 251 sub -256 mul -108 add -1 1 }
  97.                ifelse
  98.              }
  99.             ifelse
  100.           }
  101.          ifelse
  102.            }            % 0
  103.            { mul add 0 }        % 1
  104.          }
  105.         exch get exec
  106.       }
  107.      forall pop
  108.      counttomark 1 add 2 roll cleartomark    % pop all but achar bchar
  109.        }
  110.        { pop    % not seac
  111.        }
  112.       ifelse
  113.     }
  114.     { pop    % punt
  115.     }
  116.    ifelse
  117.  } bind def
  118.  
  119. % Define replacement procedures for loading fonts.
  120. % If DISKFONTS is true and the body of the font is not encrypted with eexec:
  121. %    - Prevent the CharStrings from being made read-only.
  122. %    - Substitute a different CharString-reading procedure.
  123. % (eexec disables this because the implicit 'systemdict begin' hides
  124. % the redefinitions that make the scheme work.)
  125. % We assume that:
  126. %    - The magic procedures (-|, -!, |-, and |) are defined with
  127. %    executeonly or readonly;
  128. %    - The contents of the reading procedures are as defined in bdftops.ps;
  129. %    - The font includes the code
  130. %    <font> /CharStrings <CharStrings> readonly put
  131. /.loadfontdict 6 dict def mark
  132.  /begin            % push this dict after systemdict
  133.   { dup begin
  134.     //systemdict eq { //.loadfontdict begin } if
  135.   } bind
  136.  /end            % match begin
  137.   { currentdict end
  138.     //.loadfontdict eq currentdict //systemdict eq and { end } if
  139.   } bind
  140.  /dict            % leave room for FontFile, BuildChar, BuildGlyph
  141.   { 3 add dict
  142.   } bind
  143.  /executeonly        % for reading procedures
  144.   { readonly
  145.   }
  146.  /noaccess        % for Subrs strings and Private dictionary
  147.   { readonly
  148.   }
  149.  /readonly        % for procedures and CharStrings dictionary
  150.   {    % We want to take the following non-standard actions here:
  151.       %   - If the operand is the CharStrings dictionary, do nothing;
  152.     %   - If the operand is a number (a file position replacing the
  153.     %    actual CharString), do nothing;
  154.     %   - If the operand is either of the reading procedures (-| or -!),
  155.     %    substitute a different one.
  156.     dup type /dicttype eq        % CharStrings or Private
  157.     count 2 gt and
  158.      { 1 index /CharStrings ne { readonly } if }
  159.      { dup type /arraytype eq        % procedure or data array
  160.     { dup length 5 ge 1 index xcheck and
  161.        { dup 0 get /string eq
  162.          1 index 1 get /currentfile eq and
  163.          1 index 2 get /exch eq and
  164.          1 index 3 get dup /readstring eq exch /readhexstring eq or and
  165.          1 index 4 get /pop eq and
  166.           { /cskip_C cvx 2 packedarray cvx
  167.           }
  168.           { readonly
  169.           }
  170.          ifelse
  171.        }
  172.        { readonly
  173.        }
  174.       ifelse
  175.     }
  176.     { dup type /stringtype eq    % must be a Subr string
  177.        { readonly }
  178.       if
  179.     }
  180.        ifelse
  181.      }
  182.     ifelse
  183.   } bind
  184.  /definefont        % to insert BuildChar/Glyph and change FontType
  185.   { dup /FontType get 1 eq
  186.      { dup /FontType 4 put
  187.        dup /BuildChar /build_C load put
  188.        dup /BuildGlyph /build_C load put
  189.      }
  190.     if definefont
  191.   } bind
  192. counttomark 2 idiv { .loadfontdict 3 1 roll put } repeat pop
  193. .loadfontdict readonly pop
  194.  
  195. % Define the BuildChar and BuildGlyph procedures for modified fonts.
  196. % A single procedure serves for both.
  197. /build_C        % <font> <code|name> build_C -
  198.  { 1 index begin
  199.    dup dup type /integertype eq { Encoding exch get } if
  200.         % Stack: font code|name name
  201.    dup CharStrings exch .knownget not
  202.     { 2 copy eq { exch pop /.notdef exch } if
  203.       QUIET not
  204.        { (Substituting .notdef for ) print = flush }
  205.        { pop }
  206.       ifelse
  207.       /.notdef CharStrings /.notdef get
  208.     } if
  209.         % Stack: font code|name name charstring   
  210.    dup type /integertype eq
  211.     { load_C end build_C }
  212.     { end .type1execchar }
  213.    ifelse
  214.  } bind def
  215.